
library(RSQLite)
con <- dbConnect("SQLite", dbname = "/Users/perry/Library/GoldenCheetah/Matt Perry/metricDB")
d <-dbGetQuery(con, "select * from metrics")
plot(Xhr_score ~ Xskiba_bike_score,data=d)
abline(0,1)




cor((d$Xaverage_hr / LTHR) ^2 * (d$Xtime_riding/3600 * 100), d$Xskiba_bike_score)

